home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1988 / 06 / ndpc386 / clock.asm next >
Assembly Source File  |  1988-09-01  |  3KB  |  101 lines
  1. ;
  2. ; CLOCK.ASM
  3. ;
  4. ; Author:    M. Steven Baker
  5. ; Date:        September 1, 1988
  6. ;
  7. ; a clock function for NDP C-386
  8. ; must assemble with Phar LAP 386asm
  9. ; C calling convention returning 1/100 seconds since midnite as a long
  10. ; 
  11. ;    long t;
  12. ;    t = clock();
  13.  
  14. .386    ; required to generate 32-bit code/data
  15.  
  16. ; It is very important when linking to F77L-EM/32 program units that any data
  17. ; segments your assembly code uses have their class name as 'DATA' in order
  18. ; to link correctly.  In addition, you must also use the GROUP directive 
  19. ; to include the data in group DGROUP.  DS and ES are set to DGROUP by the 
  20. ; FORTRAN code, and must be set that way on return.  Your code segment must
  21. ; also be included in the group CGROUP, and include the directive:
  22. ; ASSUME DS:DGROUP, CS:CGROUP
  23.  
  24. dataseg        segment    dword
  25. dataseg        ends
  26. ;
  27. codeseg    segment dword er public use32
  28. assume    cs:codeseg, ds:dataseg
  29. ;
  30. ; The procedure names must be declared public to be addressable by
  31. ; other modules.
  32. ;
  33. public    _clock
  34.  
  35. align 4
  36.  
  37. _clock        proc    near
  38. ;
  39. ; Upon entry to any function, NDP C-386 has pushed arguments 
  40. ; onto the stack.  When all arguments have been dealt with, 
  41. ; NDPF-386 issues a near call to the named routine.
  42. ;
  43. ; log4 = example( int2, int4, int2a, int2a(3), dp, cmpx )
  44. ;          arg1  arg2  arg3     arg4   arg5 arg6
  45. ;
  46. ;    push    ebp        ; always do this... if EBP/ESP are used
  47. ;    mov    ebp, esp    ; and this (ebp must be preserved)
  48. ;
  49. ; The arguments are pushed right to left; thus, the first argument
  50. ; is closest to ebp.  At this point, the stack contains:
  51. ;
  52. ;    offset of argn
  53. ;         ...
  54. ;    offset of arg1 = IHR
  55. ;    return code offset  (EIP) }-- four byte address from near call
  56. ;    saved ebp    <-- ebp, esp
  57. ;
  58. ; The first argument address is now 8 bytes from ebp, referenced at [ebp+8].
  59. ; Note that the minimum argument displacement is 8 for subroutines and 12
  60. ; for functions.
  61. ;
  62. ;    t = clock();
  63. ;
  64.     mov    ah,2ch        ;DOS Get Time function
  65.     int    21h        ;returns CH=hour,   CL=minute
  66.                 ;        DH =second DL=hundredths
  67. ;                ;note this trashes CX and DX
  68. ;    mov    eax,60
  69. ;    mul    ch
  70.     movzx    eax,ch        ;start with hours
  71.     lea    eax,[eax+eax*4]    ; x 5   use some fast integer multiplies
  72.     lea    eax,[eax*4]    ; x 20
  73.     lea    eax,[eax+eax*2]    ; x 60
  74. ;
  75.     movzx    ecx,cl        ; zero top of register
  76.     add    eax,ecx        ; now add in minutes
  77.     lea    eax,[eax+eax*4]    ; x 5   use some fast integer multiplies
  78.     lea    eax,[eax*4]    ; x 20
  79.     lea    eax,[eax+eax*2]    ; x 60
  80. ;
  81.     movzx    ecx,dh
  82.     add    eax,ecx        ; add in seconds
  83.     lea    eax,[eax+eax*4]    ; x 5   use some fast integer multiplies
  84.     lea    eax,[eax*4]    ; x 20
  85.     lea    eax,[eax+eax*4]    ; x 100
  86.     movzx    ecx,dl
  87.     add    eax,ecx        ;now add in hundredths of seconds
  88. ;
  89.     ret
  90. _clock    endp
  91.  
  92.  
  93. codeseg        ends
  94.  
  95.     end
  96. ;
  97. ; Do not put any label name or expression after the end statement!  This
  98. ; defines a program entry point, which has already been defined by the
  99. ; Fortran MAIN module.
  100.  
  101.